# TODO: Add comment
# 
# Author: Forever
###############################################################################


mydata = read.table("C:/Users/Forever/Desktop/4Thanh/2011/2011_2.txt",col.names=c("year","month","day","hour","lat","lon","surfaceAOD","columnAOD"),strip.white=TRUE)
attach(mydata)
cor(surfaceAOD,columnAOD)
mod=lm(surfaceAOD~columnAOD,mydata)
mod